home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / games / 1-l / diguni1.dms / in.adf / DigitalUniverse-Install < prev    next >
Encoding:
Text File  |  1995-09-04  |  9.7 KB  |  378 lines
  1. ; Digital Universe installation script
  2.  
  3. (set @default-dest "SYS:")
  4.  
  5. (transcript "Installing The Digital Universe...")
  6.  
  7. (complete 0)
  8.  
  9. (set whattoinstall
  10.     (askoptions
  11.         (prompt "Which of the following do you wish to install? "
  12.               "In order to use \"The Digital Universe\", you must install the software and "
  13.             "data files.  The pictures and audio samples are optional, but should be "
  14.             "included if you have enough room on your hard drive.")
  15.         (help @askoptions-help)
  16.         (choices "Software and data files (11 Megs)" "Pictures and audio samples (6 Megs)")
  17.     )
  18. )
  19.  
  20. ; Set flags according to what we want to do...
  21. (if (BITAND whattoinstall 1) (set software 1) (set software 0))
  22. (if (BITAND whattoinstall 2) (set pictures 1) (set pictures 0))
  23.  
  24. (if (AND (= software 0) (= pictures 0)) (abort "You didn't want to install anything"))
  25.  
  26. (copyfiles (source "DU_1:unlha") (dest "RAM:"))
  27.  
  28. (if software (
  29.  
  30. ; Find out where to install things
  31.     (set @default-dest
  32.         (askdir
  33.             (prompt "Where do you wish to install \"The Digital Universe\"? "
  34.                 "A new directory named \"DigitalUniverse\" will be created automatically "
  35.                 "in the location you choose.")
  36.             (help @askdir-help)
  37.             (default @default-dest)
  38.         )
  39.     )
  40.  
  41.     (set @default-dest (tackon @default-dest "DigitalUniverse"))
  42.  
  43.     (makedir @default-dest
  44.         (help @makedir-help)
  45.         (infos)
  46.     )
  47.  
  48.     (makeassign "DU" @default-dest)
  49.     (set @execute-dir @default-dest)
  50.  
  51. ; Add assign to user-startup
  52.     (startup "DigitalUniverse"
  53.         (prompt "Adding DU: assign to user-startup")
  54.         (help @startup-help)
  55.         (command "assign DU: \"" @default-dest "\"")
  56.     )
  57.  
  58. ; What CPU is being used?
  59.     (set programversion 0)
  60.     (if (= (run "c:cpu check 68020") 0) (
  61.         (set programversion 1)
  62.         (if (= (run "c:cpu check 68881") 0) (set programversion 2))
  63.         )
  64.     )
  65.     (if (= (run "c:cpu check 68040") 0) (set programversion 2))
  66.     (set programversion
  67.         (askchoice
  68.             (prompt "Which version of the main program do you wish to install? "
  69.                 "This installation program has done its best to determine "
  70.                 "the version you need, but if it made a mistake, click on the "
  71.                 "corrected button below before pressing \"Proceed\"")
  72.             (help "If your system has a math chip or is running on a 68040, "
  73.                 "the \"68020+/68881+\" version of the software will be the quickest. "
  74.                 "If you do not have a math chip, but have a 68020, 68030, or 680EC40, "
  75.                 "select \"68020+\".  If you are running an Amiga with the "
  76.                 "standard 68000 CPU, choose \"68000\"\n\n"
  77.                 "\"The Digital Universe\" will crash if you use a version not "
  78.                 "intended for your particular machine!  In most cases, this "
  79.                 "installation script will determine the appropriate version "
  80.                 "of the software for you.")
  81.             (choices "68000" "68020+" "68020+/68881+")
  82.             (default programversion)
  83.         )
  84.     )
  85. ; Starting the real installation
  86.     (if (> programversion 0) 
  87.     (askdisk
  88.         (prompt "Please insert the disk labelled \"The Digital Universe Disk 2\"")
  89.         (help @askdisk-help)
  90.         (dest "DU_2")
  91.     ))
  92.     (working "Extracting main program")
  93.     (if (= programversion 0) (run "ram:unlha xf DU_1:DigitalUniverse_000.lha"))
  94.     (if (= programversion 1) (run "ram:unlha xf DU_2:DigitalUniverse_020.lha"))
  95.     (if (= programversion 2) (run "ram:unlha xf DU_2:DigitalUniverse_020_881.lha"))
  96.     (complete 5)
  97. ; In case we're re-installing, makelink will fail if DigitalUniverseNoIntro already exists
  98.     (delete "DU:DigitalUniverseNoIntro")
  99.     (run "c:MakeLink from DigitalUniverseNoIntro to DigitalUniverse")
  100.     (complete 6)
  101.     (if (> programversion 0) 
  102.     (askdisk
  103.         (prompt "Please insert the disk labelled \"The Digital Universe Disk 1\"")
  104.         (help @askdisk-help)
  105.         (dest "DU_1")
  106.     ))
  107.     (working "Extracting miscellaneous utilities and configuration files")
  108.     (run "ram:unlha xf DU_1:utilities.lha")
  109.     (complete 7)
  110.     (copylib
  111.         (prompt "Copying iff.library")
  112.         (help @copylib-help)
  113.         (source "DU:libs/iff.library")
  114.         (dest "libs:")
  115.     )
  116.     (delete "DU:libs/iff.library")
  117.     (complete 8)
  118.     (copyfiles
  119.         (prompt "Copying the custom font")
  120.         (help @copyfiles-help)
  121.         (source "DU:fonts")
  122.         (dest "fonts:")
  123.         (all)
  124.     )
  125.     (delete "DU:fonts/DU/9")
  126.     (delete "DU:fonts/DU")
  127.     (delete "DU:fonts/DU.font")
  128.     (delete "DU:fonts")
  129.     (complete 9)
  130.     (copyfiles (source "DU_1:du.keyfile") (dest "DU:"))
  131.     (complete 10)
  132. ))
  133.  
  134. ; Store a copy of the various destination directories.
  135. (set @default-dest (expandpath "DU:"))
  136. (set destination @default-dest)
  137. (set dudata (tackon destination "data"))
  138. (set pics "DU:data/pics")
  139.  
  140. (makedir dudata (help @makedir-help))
  141. (makedir pics (help @makedir-help))
  142.  
  143. (if pictures (
  144.     (askdisk
  145.         (prompt "Please insert the disk labelled \"The Digital Universe Disk 2\"")
  146.         (help @askdisk-help)
  147.         (dest "DU_2")
  148.     )
  149.     (set @execute-dir pics)
  150.     (working "Extracting encyclopedia pictures part 1/12")
  151.     (run "ram:unlha xf DU_2:pics1.lha")
  152.     (complete 13)
  153. ))
  154.  
  155. (askdisk
  156.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 3\"")
  157.     (help @askdisk-help)
  158.     (dest "DU_3")
  159. )
  160. (if software (
  161.     (set @execute-dir destination)
  162.     (working "Extracing hypertext encyclopedia")
  163.     (run "ram:unlha xf DU_3:hypertext.lha")
  164.     (complete 16)
  165. ))
  166.  
  167. (if pictures (
  168.     (set @execute-dir pics)
  169.     (working "Extracting encyclopedia pictures part 2/12")
  170.     (run "ram:unlha xf DU_3:pics2.lha")
  171.     (complete 19)
  172. ))
  173.  
  174. (askdisk
  175.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 4\"")
  176.     (help @askdisk-help)
  177.     (dest "DU_4")
  178. )
  179. (if software (
  180.     (set @execute-dir dudata)
  181.     (working "Extracting planetary maps, orbits, and deep sky object data")
  182.     (run "ram:unlha xf DU_4:map_vsop.lha")
  183.     (complete 22)
  184. ))
  185.  
  186. (if pictures (
  187.     (set @execute-dir pics)
  188.     (working "Extracting encyclopedia pictures part 3/12")
  189.     (run "ram:unlha xf DU_4:pics3.lha")
  190.     (complete 25)
  191. ))
  192.  
  193. (askdisk
  194.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 5\"")
  195.     (help @askdisk-help)
  196.     (dest "DU_5")
  197. )
  198. (if software (
  199.     (set @execute-dir dudata)
  200.     (working "Extracting Yale Bright Star Catalogue")
  201.     (run "ram:unlha xf DU_5:ybs.lha")
  202.     (complete 28)
  203. ))
  204.  
  205. (if pictures (
  206.     (set @execute-dir pics)
  207.     (working "Extracting encyclopedia pictures part 4/12")
  208.     (run "ram:unlha xf DU_5:pics4.lha")
  209.     (complete 31)
  210. ))
  211.  
  212. (askdisk
  213.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 6\"")
  214.     (help @askdisk-help)
  215.     (dest "DU_6")
  216. )
  217. (if software (
  218.     (set @execute-dir dudata)
  219.     (working "Extracting SAO stellar database part 1/6")
  220.     (run "ram:unlha xf DU_6:sao1.lha")
  221.     (complete 34)
  222. ))
  223.  
  224. (if pictures (
  225.     (set @execute-dir pics)
  226.     (working "Extracting encyclopedia pictures part 5/12")
  227.     (run "ram:unlha xf DU_6:pics5.lha")
  228.     (complete 37)
  229. ))
  230.  
  231. (askdisk
  232.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 7\"")
  233.     (help @askdisk-help)
  234.     (dest "DU_7")
  235. )
  236. (if software (
  237.     (set @execute-dir dudata)
  238.     (working "Extracting SAO stellar database part 2/6")
  239.     (run "ram:unlha xf DU_7:sao2.lha")
  240.     (complete 40)
  241. ))
  242.  
  243. (if pictures (
  244.     (set @execute-dir pics)
  245.     (working "Extracting encyclopedia pictures part 6/12")
  246.     (run "ram:unlha xf DU_7:pics6.lha")
  247.     (complete 44)
  248. ))
  249.  
  250. (askdisk
  251.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 8\"")
  252.     (help @askdisk-help)
  253.     (dest "DU_8")
  254. )
  255. (if software (
  256.     (set @execute-dir dudata)
  257.     (working "Extracting SAO stellar database part 3/6")
  258.     (run "ram:unlha xf DU_8:sao3.lha")
  259.     (complete 47)
  260. ))
  261.  
  262. (if pictures (
  263.     (set @execute-dir pics)
  264.     (working "Extracting encyclopedia pictures part 7/12")
  265.     (run "ram:unlha xf DU_8:pics7.lha")
  266.     (complete 50)
  267. ))
  268.  
  269. (askdisk
  270.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 9\"")
  271.     (help @askdisk-help)
  272.     (dest "DU_9")
  273. )
  274. (if software (
  275.     (set @execute-dir dudata)
  276.     (working "Extracting SAO stellar database part 4/6")
  277.     (run "ram:unlha xf DU_9:sao4.lha")
  278.     (complete 53)
  279. ))
  280.  
  281. (if pictures (
  282.     (set @execute-dir pics)
  283.     (working "Extracting encyclopedia pictures part 8/12")
  284.     (run "ram:unlha xf DU_9:pics8.lha")
  285.     (complete 57)
  286. ))
  287.  
  288. (askdisk
  289.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 10\"")
  290.     (help @askdisk-help)
  291.     (dest "DU_10")
  292. )
  293. (if software (
  294.     (set @execute-dir dudata)
  295.     (working "Extracting SAO stellar database part 5/6")
  296.     (run "ram:unlha xf DU_10:sao5.lha")
  297.     (complete 61)
  298. ))
  299.  
  300. (if pictures (
  301.     (set @execute-dir pics)
  302.     (working "Extracting encyclopedia pictures part 9/12")
  303.     (run "ram:unlha xf DU_10:pics9.lha")
  304.     (complete 65)
  305. ))
  306.  
  307. (askdisk
  308.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 11\"")
  309.     (help @askdisk-help)
  310.     (dest "DU_11")
  311. )
  312. (if software (
  313.     (set @execute-dir dudata)
  314.     (working "Extracting SAO stellar database part 6/6")
  315.     (run "ram:unlha xf DU_11:sao6.lha")
  316.     (complete 69)
  317. ))
  318.  
  319. (if pictures (
  320.     (set @execute-dir pics)
  321.     (working "Extracting encyclopedia pictures part 10/12")
  322.     (run "ram:unlha xf DU_11:pics10.lha")
  323.     (complete 73)
  324.  
  325.     (askdisk
  326.         (prompt "Please insert the disk labelled \"The Digital Universe Disk 12\"")
  327.         (help @askdisk-help)
  328.         (dest "DU_12")
  329.     )
  330.     (working "Extracting encyclopedia pictures part 11/12")
  331.     (run "ram:unlha xf DU_12:pics11.lha")
  332.     (complete 77)
  333. ))
  334.  
  335. (askdisk
  336.     (prompt "Please insert the disk labelled \"The Digital Universe Disk 13\"")
  337.     (help @askdisk-help)
  338.     (dest "DU_13")
  339. )
  340. (if pictures (
  341.     (set @execute-dir pics)
  342.     (working "Extracting encyclopedia pictures part 12/12")
  343.     (run "ram:unlha xf DU_13:pics12.lha")
  344.     (complete 81)
  345. ))
  346.  
  347. (if software (
  348.     (set @execute-dir dudata)
  349.     (working "Extracting Earth satellite orbit files")
  350.     (run "ram:unlha xf DU_13:satellites.lha")
  351.     (complete 85)
  352.  
  353.     (set @execute-dir dudata)
  354.     (working "Extracting comet and asteroid orbit files 1/2")
  355.     (run "ram:unlha xf DU_13:orbits1.lha")
  356.     (complete 89)
  357.  
  358.     (askdisk
  359.         (prompt "Please insert the disk labelled \"The Digital Universe Disk 14\"")
  360.         (help @askdisk-help)
  361.         (dest "DU_14")
  362.     )
  363.     (set @execute-dir dudata)
  364.     (working "Extracting comet and asteroid orbit files 2/2")
  365.     (run "ram:unlha xf DU_14:orbits2.lha")
  366.     (complete 93)
  367.  
  368.     (set @execute-dir dudata)
  369.     (working "Extracting 1000+ database")
  370.     (run "ram:unlha xf DU_14:1000plus.lha")
  371.     (complete 97)
  372. ))
  373.  
  374. ; Now, we're done
  375. (delete "RAM:unlha")
  376. (complete 100)
  377. (exit "Installation successful")
  378.